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editor's letter 


We have a very exciting issue in store for you this month. 
Compucolor Corporation continues to grow and develop and this 
month, it is my pleasure to present you with the first of a 
two-part interview with Peter Curnin, Compucolor's new 
President. Mr. Curnin comes to us from IBM and I'm sure you'll 
find this in-depth interview of great interest. 


We are also taking a photo tour of the plant to actually 
see how the Compucolor is assembled, tested, and made ready for 
shipment -- a fascinating excursion into part of the 
electronics world that most of us never get a chance to see in 
person. There's plenty more of interest in this issue -- the 
focus is on hardware. 


A quick note on submitting articles to COLORCUE -- one of 
my favorite topics! One thing that makes life easier here in 
my office and keeps transcription errors down to a minimum is 
to have articles and program listings submitted to me on disk. 
I'll copy your disk and return it as soon as possible. Please 
include a hardcopy printout of your article in case the 
unforeseen happens, as it always does. A word of warming: when 
you send disks to me (or to anyone, for that matter), please 
make sure to pack them carefully. Enclose them in cardboard or 
some other stiff material so that your disk is not damaged in 
the mail. 


Major Contributors, individuals who have written full 
articles which have been accepted for publication, will have 
their subscriptions to COLORCUE extended by one year unless 
they would prefer to trade their article for a preprogrammed 
disk (of the $19.95 variety). If you would rather have a disk 
in trade for your article, please specify in your cover letter 
which disk you would like in return. 


May Reon — 


On March 3, 1980, Intelligent Systems Corporation and its 
subsidiary, Compucolor Corporation, announced a new President 
and Chief Executive Officer -- Peter Curnin. 


Mr. Curnin came to ISC with 23 years of IBM experience. 
At IBM, he was the project director and marketing strategist 
for the SCAMP 5100 system -- IBM's foot in the small systems 
door. Most recently, Mr. Curnin served as manager of IBM's 
General Systems Division's customer relations department. He 
developed and managed the Territory Management System, designed 
to aid management in the development of new marketing 
strategies and to measure their effectiveness. There is no 
question that Peter Curnin brings a wealth of knowledge and 
experience to our young and growing company. 


INTERVIEW: 
PETER CURNIN 


Ezra Mintz, former President of ISC, has been named 
Chairman of the Board of Directors, and Charles Muench, former 
Chairman of the Board, remains on the Board to direct ISC's 
research and development activities. 


Before Mr. Curnin really had an opportunity to get his 
feet wet, we conducted this personal interview with him. It 
includes some general questions about the future of Compucolor 
and some very specific questions from a number of you. Due to 
the length of the interview, we will be presenting it in two 
parts. Part One covers Compucolor, the company, and its 
position in the marketplace. 


ED: Since IBM was your 
last employer, I'm 
Sure you have some 
interesting things to 
Say regarding it's 
recent announcement of 
entry into the color 
field. How do you 
view IBM's move and 
how will ISC and 
Compucolor be 
affected? 


PC: IBM has just 
recognized the value 
of color. From ISC's 
point of view -- 
that's good. We're 

| the leading 
manufacturer, we produce the largest number of units, and we do 
it at the lowest cost. 


Introducing color and putting it into their systems will 
represent a very substantial expense and should be reflected in 
their selling prices. They have 6 or 7 product lines. They 
will not be able to place color on each of these products 
because the programming expense would be enormous. Color will 
only be placed on the larger systems, the 370 line and one model 
System 3, not on smaller units. 


ED: How do you feel about Compucolor's current positioning with 
regard to its other competitors? 


PC: We're in the middle of doing a product line assessment right 
now -—- of understanding what is the best strategy to follow over 
the next three years. Anything you do in this business has to 
be looked at in the long term perspective. When we look at the 
Compucolor and Intecolor lines, we will study the relationship 
between these two and see whether the Compucolor and Intecolor 
lines can't relate more. One of the things I'd like to see isa 
product line that walks up the whole series. 


ED: So you're talking about merging the two lines together? 


PC: No, I'm not. I'm trying to understand what the practicality 
of that is. Is it a reasonable thing for the engineers and the 
programmers to accomplish? Is it a desirable thing? How many 
people would want to move up that flight of stairs? If there is 
no one who needs to move up, then we won't have to solve a 
nonexistent problem. On the other hand, perhaps Compucolor 
users would look forward to being able to add more function to 
their product. Obviously, we'd like to do that for them. We'd 
like to add more function to their product -- be the supplier 
for them. 


We want to do some long range planning over the next six 
months to see exactly how these two lines dovetail. I think if 
we can accomplish that task, it will give the Compucolor user a 
whole new perspective. I think to be able to carry him up to a 
full scale business system would be very interesting and would 
enhance the value of our product. 


I'd like to make the point that IBM continuously studies 
the function vs. compatibility problem and finds that the answer 
is a compromise. You find that in order to implement a new 
function, you create some degree of incompatibility and then you 
have that hard decision’ -- do you put that new function in or 
maintain compatibility? Those are some of the decisions we'll 
have to face up to. 


ED: How do you see the financial status of Compucolor right now? 


PC: It's never been stronger. February, 
and I'm referring now to all of 
Intelligent Systems, was the best month 


we've had in the history of the company. a re | in 
The people that we work with financially We re the lea g 


have reassurred us of their complete manufacturer o 26 


support for a continuing period of time. 

They’ re delighted with the progress at the lowest cost. 
we've made and they stand ready to meet 

any of our future financial needs. 

Financially, we have no problems on the 

horizon. 


ED: Do you see heavy growth in the future or a more sustained 
growth pattern? 


PC: Obviously, Compucolor and our growth in that area, will be 
affected by a lot of things outside the company. Namely, what 
the competition is doing. 


ED: Mr. Curnin sees the need to more closely define the 
"personal computer market". 


PC: We want to build more demographics -- find out what part of 
that market is really business or other shared uses of the 


personal computer. 


ED: Would you like to make a comment on what hardware 
development projects we're getting into? 


PC: It's been a company practice, and I think it's a smart one, 

not to speculate openly on what we're going to do next. The 

reasons for that are obvious. You don't want people to wait on 
a "phantom machine". When you 
speculate, that often means that you're 
not promising to deliver. You may st 


eee we don't want working on it in a week. That would “ 
people waiting on @ fake a buying decision. On the other 
q Ph a ntom mach ine a 2 hand, we are working on projects that we 


think are quite advanced -- I wouldn't 
like everybody to know what we're 
doing. 


ED: We have received questions from several of our readers. The 
first question is from Fred Smith of the University of Georgia, 
Athens. He says, "We have two machines, an older one and a new 
one. The new revision boards for the four phase motors are 
super. The difference is like night and day. Is there anything 
that can be done to update the boards on older models (for 
instance, a discount on trade-ins)?" And, Chuck Crawford from 
the Georgia Users Group asks, "Disks aren't always compatible 
between machines because disk speed often varies from one 
machine to the next. What do you intend to do to guarantee disk 
speed in the future?" 


PC: We want to provide both quality and reliability. Both of 
these areas are being reviewed by our engineering department. 
We will present the most cost-effective way to upgrade your 
system at the soonest opportunity. Compucolor is going to grow 
because we keep our customers happy. 


ED: Chris Carson of Aurora, Colorado asks, "What are your plans 
for expansion, and what are your plans for interfacing hardware 
and software?" 


PC: Interfaces are continuously being examined by our engineers. 
We are presently working on various interfaces and will make 
announcements in upcoming issues of COLORCUE. 


ED: What are your particular strengths for this job? -- Why do 
you think they chose you? 


PC: (Laughing) Well, they didn't really tell me why they chose 
me. I think, quite frankly, that I come with an awful lot of 
experience in the marketing area. I graduated from the Wharton. 
School of Business in 1956. 


I've been a salesman, and I've run a sales oganization. 
I've been in application development, and I've run development 
teams. I've done strategy -- and a whole assortment of 
management jobs. I guess they were interested because I've been 
successful in each of those jobs. On many occasions, I've bea@m 
critical of management. Now, I am responsible for making 
decisions promptly and thoughtfully. That's why I was 
interested in the job. I feel that my career has always pointed 
to a position like this one, and that I'm going to learn here as 
well. 


ED: Mr. Curnin has already developed pride and strong personal 
ties to his new company. He talks about it. 


PC: The company is just the right size now. It has all the 
fundamental things in the right place. The company has doubled 
in the last year. There aren't many companies around that can 
make that statement. The one I left couldn't double. The one I 
left was only growing at 17% a year. I look forward to the kind 
of growth and vitality that ISC represents. 


We have young people here that are 
running our plants. I think to see an 
engineer who is able to say, "I 
developed that product," -- and he did eee I ] OO k 


-- well, I think that's terribly 
exciting; you could let a person start f OrWwa rd to the 


here and all of a sudden find that growth and 


person growing. Elsewhere, he would not 


be considered a senior engineer, he'd be Vital ity that ISC 


a junior. Well, junior is not age, some 

people are juniors at 50. That same represents. 
engineer would be working on a ten-man 

team in a larger company. Watching 

young people come in and grab hold of 

these programs is just as exciting as 

the devil! 


ED: The big thing that Curnin likes about his new company is the 
unstructured atmosphere. Coming from highly structured IBM, 
that's easy to understand. 


Peter Curnin will be discussing support and software development 
in our next issue of COLORCUE, as well as answering a few more 
user questions. Don't miss Part 2: Interview with Peter 
Curnin. 


Many of you have 
probably wondered how = 
your Compucolor was 


made. Since I can't 
actually walk you 
through the plant, I 
walked our photographer 


through. Come with us 

and see how the 
Compucolor is au 
produced. SUBASSEMBLY : 


1. Building Printed Circuit 
Boards (PCBs) 


«9 Keyboard Assembly. Here, the key caps are 


put on the switches. 


? by 


2. Preliminary or first Quality 
Control (QC) check to see that 
everything is in its proper place 


& 


% 


6. Subassembly. Putting the 
parts together. 


Wave Solder 


ae the Board is first 
coated with flux, 
and then 


b. heated, soldered, 
and 

c. the wires are 
trimmed. After this 
process has been 


completed, the Board is 
resoldered and then 


d. washed, 


4. The Cleanup Line washes 
the Boards again and 
retouches the soldering 
before technicians test 


8. G 


and all other parts and put 
them into the case. 


9. First Power Up. Testing 
tubes after final assembly. 


et the subassembly 


10. Assemble disk drives. 


13. Now the whole unit goes into the Burn In Room 
and bakes at 100 to 105 degrees for 3 days. : 
If anything is likely to go wrong, it goes wrong here! 14, Final QC, then 


The whole process takes 10 to 14 days. It requires a total of 20 
people to put each Compucolor together. 


If your machine should ever need to come back to the factory for 
repair, once the problem is identified and fixed, the Compucolor must go 
back through the whole testing process again. 


12. Power Quality Control -- shake, 
rattle, and roll. MThe machine is 
Shaken on a motorized table while 
the power is on -- great for 
finding loose connections. 


eee we ee 


29s © « © we 
7-—e**# #@e we eae 


Pe Ok Ee ee ee 
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16. The Disk Drive Department 


duplicates Compucolor program 
disks and prepares them for 


mailing. 


15. Onto the Shipping Line. 


Notice that the Compucolors in production are kept on wooden boards as 
they move down the production line. The Compucolor will experience 
external disk read problems when placed on a metal surface or near other 
metal objects or units. In addition, place your external disk on the RIGHT 
SIDE OF YOUR UNIT. The high voltage supply is located on the left side and 
will affect disk drive operation. 


EDITOR'S NOTE 


GENERATING A BREAK 


By Trevor Taylor 
200A Foxridge Apts. 
Blacksburg, Va. 24060 


Computers are delicate machines. We at Compucolor can't 
be responsible for any complications resulting from hardware 
modifications. Please be sure to read your Maintenance Manual 
carefully before making any modifications. 


Anyone who has used their CCII as a communications 
terminal on an IBM, Honeywell or any other mainframe, will have 
run into an annoying problem: the BREAK key does not generate a 
break! Perhaps in the next version of FCS, Compucolor will fix 
this. Anyway, for my work, a BREAK key is essential, so I 
built one. 


What is a break anyway? A break is not a character, it 
has no ASCII code! A break is simply a long string of zero 
bits -- many more bits than go to make up a single character. 
The computer at the other end recognizes this as a demand for 
attention because it has no valid stop bit. 


This suggests a simple method for generating breaks. What 
if we put a switch in the transmitted data line that we could 
Switch over to zero momentarily, then back to normal 
communications? 


I bought a momentary contact (spring return) SPDT toggle 
Switch at my local Radio Shack store (part no. 275-619 SPDT), 
and after a little soldering, I had a break "key" (really a 
Switch). It only took about 10 minutes and cost less than $2. 


The procedure is simple, but you need a soldering iron and 
must be able to use it without making blobs of solder or 
melting the modem plug. 


1. Pull apart the 25-pin plug that connects to your 
modem. 

2. If you look carefully beside the pins, you will see 
little numbers. Find the one numbered 2 and unsolder the wire. 
Just touch the iron on it and pull (it helps to have three 
hands) - don't burn it off! 

3. Cut three (3) pieces of wire long enough to reach from 
your modem to the CCII. Solder the first of these to the now 
vacant pin 2. 

4. Solder the other end of this first wire to pin B 
(center pin) on the toggle switch. 

5. Take a second piece of wire and solder it to pin A on 
the switch. Be careful to hold the toggle switch as shown in 
the diagram. 

6. Remember that loose wire from the modem plug? Solder 
it to the wire connected to pin A of the switch. You will 
definitely want to insulate this joint with tape so it will not 
touch anything. 

7. Solder the third piece of wire to pin C on the 
switch. 

8. Now comes the hardest part, but luckily it's the last 
part too. Choose either pin 4 or pin 20 on the modem plug (pin 
20 is probably easier). There should already be a wire 
attached. What you have to do is solder the third wire to this 
pin WITHOUT disconnecting the wire that is already there. 


JNZ BTALOOP ; CONTINUE PROCESS 


’ 
CMP H ; UNTIL WE GET A 
JNZ BTALOOP ; ZERO QUOTIENT 
INX B ; PI AT HIGHEST ORDER DIGIT 
MOV H,B 
MOV L,C 
CALL OSTR ; SEND TO SCREEN 
RET 


Note that I have used a buffer rather than sending data 
directly to screen. This is convenient since the smallest 
order digits are generated first. In certain cases, it might 
be more convenient to have a memory word set aside for 
'BUFPTR', so that the beginning of the string in 'BUFFER' could 
be indicated. 


Another commonly needed routine is conversion of an ASCII 
string representing an integer into binary, i.e. the reverse of 
the above. One could read the string into a buffer and procede 
to multiply each digit by 10 and add the next one. The program 
would be extremely similar to my binary-to-ASCII program. But, 
first each digit would have to be checked to ensure it actually 
is a digit and not some other character. Below is a routine 
which does the job. It calls the routine CI (described in 
COLORCUE, November, 1979). All characters are ignored except 
digits, backspace, and return. Also it won't allow more than 5 
digits. I prefer this method rather than error messages, which 
often destroy a carefully designed display (particularly in 
games) . 


INBUFF: DS 6 ROOM FOR 5 DIGITS AND 
DELIMITER 

IO EQU 3392H SEND CHARACTER TO SCREEN 
FROM A REG 


MULHD EQU 3562H MULTIPLIES D-E BY H-L. HIGH 
WORD OUT IN D-E. LOW WORD 
OUT IN H-L 

B-C INDEXES INBUFF 

MAXIMUM NO. OF DIGITS 


GET CHARACTER FROM KEYBOARD 


=e “se se %“e Se [6 6 SO VEO VS TS 


INTO A 
CPI 26 
JZ BSPACE ; HANDLE BACKSPACE 
CPI 13 
JZ ENDIAN ; HANDLE RETURN 
SUI 48 ; CONVERT ASCII TO DIGIT 
JC IANLOOP ; NOT A DIGIT, SO BACK FOR MORE 
CPI 10 
JNC IANLOOP ; NOT A DIGIT, SO BACK FOR MORE 
pk 6D ; DECREMENT NO. OF DIGITS TO GO 
JM TOOLONG ; TOO MANY DIGITS? 
STAX B ; STORE DIGIT IN BUFFER 
ADI 48 ; CONVERT BACK TO ASCII 
CALL LO ; ECHO DIGIT 
INX B ; POINT TO NEXT POSITION IN 

; BUFFER 

JMP TANLOOP ; BACK FOR MORE 
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’ 
STA CCOUNT ; START AT CHAR ZERO 
STA LCOUNT 3; LINE ZERO 
MVI A,FF : SEND FORM FEED 
CALL PRINT 
LOOP: LXI H,FPB1L :* POINT: AT: PILE 
PARAMETER BLOCK 
CALL, GTBYT : GET NEXT BYTE 
JC LOOPE] : <C>=ERROR OR END OF FILE 
CALL PRINT PRINT CHAR 
ABTEST: LDA READY SEE IF BREAK 
CPI 50H ; 
JZ ABTEST ; HANG UNTIL ANOTHER IS STRUCK 
CPI 80H : 
JNZ LOOP 
XRA A 
STA READY : 
LDA KBCHA ; SEE READ NEXT CHARACTER 
CPI 10 ; SEE IF LF 
JNZ LOOP : 
JMP BAILOUT ; EXIT IF LF 
LOOPE] : JNZ ERROR * ERROR STATUS 
MVI A,FF ; ELSE END OF FILE 
CALL PRINT : SEND FORM FEED 
JMP EOF ; AND EXIT 


; 
go KKKKEKEKERKEKRE KEKE KEKE RE RE RE RE RE REE E EERE RERERERE ERE RERERERERE 


IBUFF: PRINT MESSAGE AND INPUT BUFFER 
; WITH BACKSPACE EDITING 
INBUFF: LHLD MSG ; DISPLAY PROMPT 


CALL OS 

CALL RESET ; RESET DISK IF ERROR 

LXI H, BUFFER ; POINT AT BUFFER 
L02: CALL CI ; READ FROM CONSOLE 

CPI 13 ; IS SF ER? 


JZ X02 ; YES, GO PROCESS CR 


CPI 26 ; IS IT BS ? 
JZ GO021 ; YES, GO PROCESS BACKSPACE 
MOV M,A ; STORE CHARACTER 
INX H ; BUMP POINTER 
MOV A,L : TEST LO BYTE OF POINTER 
CPI 64 : 
JZ INBUFF : RESTART IF TO LARGE 
JMP L02 
G021: MVI A,* * ; ELSE SPACE OVER 
CALL CO 
MVI A,26 ; TYPED DATA 
CALL CO 
DCX H 
JMP L02 ; CONTINUE LOOP 
X02: MVI M,0 ; INSERT TERMINATOR 
MVI A,CR ; PRINT CARRIAGE RETURN 
CALL CO 
MVI A, LF ; LINEFEED SEQUENCE 
CALL CO 
RET 
INIIO: 


SETUP FILE,PRINTER PARAMETERS 
GETS INFO FROM COMMAND LINE BUFFER 


INIIO: LXI H, BUFFER + POINT AT BUFFER 
LXI D,FPB1 + POINT AT INPUT FPB 
LXI B,DEFAULT ; POINT AT DEFAULT TYPE 
CALL PFSPC PARSE FILE SPEC 
JC EMESS ; IF CARRY THEN ERROR 
CALL GTPRM + GET PARAM FOR PRINTER 
XRA A > START AT TOP OF FORM 


20 


TOD 
LISICG LXAN OL INIOd H 
q@ NI dAVWS * w‘d 
LISIG daw W 
WOS HOI OTx 
Gx q 
Vx 
Cx * 
WOS INTNUND LAD * q‘W 
WHW OL MOWd : WW 
ON 4 
; T+16 
ON ° 
6-0 JI MOHD * 0 
LIDIA La ¢ W/W 
YOM YOI <ON> Las ¢ 
RW Las : 
<W> OL é a‘W 
<a> NI WAS Lad : TOD 
<a> YWATIO : 0d LAW 


<W> OL WaaddNd Wodd ANTVA SLA 


SHA=<ON> 
SHA=<O> LIDIGe ¢ oId 
a 


LISIG YOd WWWOO ANW SdOVdS LSVd NWOS 


Lad 

q.LIHM WIS 

qOvdS ALIHM ‘ TWAD TIWO 

SLIDICG ON ‘ eI 

FYON AWOS Nwos ‘ NDS TTWO 

qZIS dvd : Z1Sd WIS 

ANTWA LXAN TWAD TTWO 

SLIDSICG ON ! es 

NWOS FYOW aNos TTWO 

qZIS aNITI : ZIS1 WIS 

<W> NI SNTWA LAD TWAD TTWO 

SLISIC ON * RI 
SLIDSIG YOd NWos * aNos TIW > Wado 


NunLaa ¢ Law 

SOLVIS YOuNA ON Las * OWD 
SOLVIS YOuNa Las * OLS 

TII4 LOdNI GNIMaY IOGSMA TIWO 

ddd LOdNI LW INIOd * Tada‘ IXT 
AZIS Usd4INd LOdNI aAWS * aX4+Tadd C@THS 
qZ1IS wadding datas ‘ VZ0T‘H IXT 
SSauddv UaIINd LAdNI gAWS * Andd+Tad4 IHS 
WaddInd LOdNI LW INIOd ‘ angi‘ IXT 
: SSaWa ok 

FTIId AKL Nado Nado TIWO 

: WW AOW 

ddd LOdNI LW INIOd ‘ Tadd‘ H IX1 

: INNOOI ARS) 

ANIT NO YVHO LSYId ANW : INNO) WLS 


21 


»COMPUCOLOR DEMO CI ROUTINE CI: PUSH H »SAVE H 
:THIS SHOWS HOW TO READ A CHARACTER LXI H, INBUF ; 
:AND ESCAPE FROM A HUNG PROGRAM CIl: MOV A,M »READ COUNTER 
ANA A ° 
CHRINT IS CALLED WHENEVER A KEY IS STRUCK JZ CIl sLOOK AND WAIT IF ZERO 
THE JUMP IS FROM INPCRT BUFFERS AHEAD FOR DI sHOLD OFF INTERUPTS WHILE PROCESSING 
CI TO GET CHAR WHEN IT WANTS IT . PUSH D * SAVE D 
DCR M sREDUCE BUFFER COUNTER 
CHRINT CALL SAVE MOV D,M . 
LXI H, INBUF INX H sPOINT TO CHARACTER 
MVI A,30 :LENGTH OF BUFFER MOV A,M sREAD IT 
CMP M SEE IF BUFFER IS FULL PUSH PSW >STACK IT 
RC :IF IT IS IGNORE CHARACTER CI2: DCR D *PACK TYPE AHEAD BUFFER 
INR M » INCREMENT COUNTER JM C13 :WHEN DONE 
MOV A,M »PUT COUNT IN A INX H *CHARCTER TO BE SHIFTED 
CALL ADHLA ;ADD COUNTER TO BEGINNING OF BUFFER MOV A,M 
MOV A,E »CHARACTER IS IN E DCX H :POINT TO NEW HOME 
CPI 27 SEE IF ESCAPE HAS BEEN HIT MOV M,A ;NEW HOME 
JZ BREAK  ;USER WANTS TO EXIT INX H 
ANI 127 sMAKE SURE ITS ASCII JMP C12 LOOP UNTIL DONE 
MOV M,A STORE IT 
RET CI3: EI ENABLE INTERUPTS 
POP PSW :THE CHARACTER 
BREAK ALLOWS THE USER TO BRANCH TO A LOCATION WHEN THE PUSH PSW : SAVED AGIN 
ESCAPE KEY IS STRUCK. IN THIS CASE THE LOCATION IS CALL CO : DISPLAY 
CALLED BAILOUT. POP PSW > BACK HOME 
POP D <DE> AND <HL> 
BREAK : JMP BAILOUT POP H » UNCHANGED 
RET 
INBUF : DS 32 STORAGE AREA FOR TYPE AHEAD S1OUT: IN 03H : EXACT COPY OF ROM ROUTINE 
+ SHOWS CLEAR-TO-SEND HANDSHAKE 
ANI 10H : TBUFFER EMPTY? 
CI READS AND ECHOS ONE CHARACTER JZ SlOUT ; NO 
IN 01H ; CLEAR TO SEND OK? 
ANI 80H + (USES BIT 7 OF EXTERNAL INPUTS) 
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yous ON dogs 
LIXad - FIG JO ang : 
FOWSSAW YONA INTYd ¢ ZODSW’ H 
Ino : 
LI Gangs : 
ONS OL YWHIO YOI LIVM ‘ON * 
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dwer *SSaWa 

HWZ8T dwe +*SO 

*aV.LMAIN 

nod aVINAT 
HOLE dwe 
HOGAE dwe 
H8TSE€ dwe 
HVVCE dqw¢e 
HOC CE dwe 
H9OETE dwe 
HLA0€ dwe 
H9D0€ dqwe 
Havdé dwe 
HSW9Z dwe 
HLLOE dwt 
HdZ9Z dwe 
Hpdee dwf 

*av.LdIo 

SaTavL dWwne Wow :‘ 
Lad 
"THdS 

C@IHI *LIXd 

0’d IAW? INOTIVE 

* 40d 
SO TIWO 

IX] *aOuda 
Lad 
H90 LO 
a‘W AON 
LNOTS vA ly 


Vinn Beigh 


1221 W. Glenlake Avenue 
Chicago, Illinois 60660 


Myron Steffy 


10833 Brookside Drive 
Sun City, Arizona 85351 


R. G. Meister 
112 Carvel Avenue 


New Castle, Delaware 
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19720 


input 


Vinn Beigh, a student at the Illinois Institute of Technology, 
is looking for calculus, physics, and chemistry programs. If 
you have any information to offer, please contact him. 


Myron Steffy has sent us a short utility program which 
lists variables in long programs in order of their appearance. 
He'd be happy to hear from you if you have any comments: 


Like a great many people, I sometimes fail to keep track 
of the variables as I use them, especially in one involving a 
lot of math. If you have this difficulty, simply append this 
to the main program. It will list all of the variables in 
order, including the ones used in the routine. 


If you need to know where a certain variable is used, then 
FREDI goes to work. Ask him to look for the string "X=", or as 
the case may be. Be sure to put in the "=" sign or he will 
list every "X" in the text. 


It should also be noted that the program that is being 
searched must be "run" first, or the variables will not have 
been stored. 


30000 REM LIST VARIABLES IN THE ORDER THAT THEY APPEAR 
30005 REM V1 IS THE START OF VARIABLES 

30010 Vl= PEEK (32982)+ PEEK (32983)* 256 

30015 Wl= PEEK (V1) 

30020 W2= PEEK (V1+ 1) 

30025 IF Wl= 128THEN W3= 36 

30030 IF WL> 175AND WI1< 219THEN Wl= W1- 128:W3= 36 
30035 IF W2> 47AND W2< 91THEN PRINT CHRS (W2); 
30040 IF Wl> 47AND W1< 91THEN PRINT CHRS (WL); 
30045 IF W3= 36THEN PRINT CHR$ (36) 

30050 IF W3= OTHEN PRINT 

30055 W3= 0 

30060 Vl= V1+ 6:REM JUMP TO NEXT VARIABLE 

30065 REM V2 IS END OF VARIABLES 

30070 V2= PEEK (32984)+ PEEK (32985)* 256 

30075 IF V1l< V2THEN 30015 

30080 END 

READY 


R. G. Meister writes to say that he has several 
astrology-related programs available. They are: MC FROM ARIES 
OR LIBRA; MC FROM CANCER OR CAPRICORN; GEOCENTRIC LATITUDE OF 
PLACE; ASCENDANT FROM ARIES; ASCENDANT FROM CANCER; ASCENDANT 
FROM LIBRA; ASCENDANT FROM CAPRICORN; RA OF NO PLANETS (WITH 
ACCRUED PRECESSION) ; NEW DECLINATIONS OF NQ PLANETS; RISING, 
SETTING OF NQ PLANETS FOR PLACE. If you are interested, please 
contact him. 


In our last issue, February 1980, Trevor and Denise Taylor 
offered to copy their Star Trek enhancement to your disk for 
you. Send them your copy of Star Trek and please remember to 
enclose return postage. Thanks. 


Dave Suits, in his text AN INTRODUCTION TO COLOR GRAPHICS, 
writes: 


Although the CCII has eight background and eight 
foreground colors, even more colors are available under certain 
conditions. Look at the character associated with shift-@ 
(FLAG OFF) : (PLOT 96 also does it.) That little "hatch" 


character, like any other character, can be printed in any 
color on a background of any color. But, because the 
background shows through only between the hatches, the result 
is a new color which is a function of the foreground and 
background color combination. Use the PLOT 6 followed by a CCI 


code, followed by PLOT 96 (or PRINT" 8") and see what you can 


come up with. The program below will display all the 
possibilities. 


5 REM PROGRAM 2.6 

6 REM THE HATCH CHARACTER 

10 PLOT 27,24: REM PAGE MODE 

20 PLOT 30,16,29,16: REM SET COLORS 

30 PLOT 15,12: REM SMALL CHARACTERS; CLEAR SCREEN 

37 REM PRINT HEADINGS AT TOP. THE NUMBERS UNDER 

38 REM 'BG' AND 'FG' ARE BACKGROUND AND FOREGROUND 

39 REM COLORS FROM BLACK (16) TO WHITE (23) 

40 FOR X=6 TO 54 STEP 16 

50 PLOT 3,X,0: PLOT 17: PRINT "BG";: PLOT 22: PRINT "FG" 

60 NEXT: PRINT 

69 REM INITIALIZE BACKGROUND (BG) AND FOREGROUND (FG) TO BLACK 
70 BG=16: FG=16 

79 REM PRINT 4 COLUMNS IN 31 ROWS OF THE HATCH CHARACTER 

80 FOR X=0 TO 48 STEP 16 

90 FOR Y=1 TO 31 STEP 2 

100 FG=FGtl: REM NEXT FOREGROUND COLOR 

110 IF FG=24 THEN FG=16: BG=BGtl: REM NEXT BACKGROUND COLOR 
120 IF BG=24 THEN X=48: Y=31: GOTO 170: REM ALL DONE 

140 PLOT 96,96,96,96,25: REM 4 HATCHES, THEN MOVE OVER 

150 PLOT 6,1: PRINT BG; 

160 PLOT 6,6: PRINT FG 

170 NEXT Y,X 

180 PLOT 6,2,3,48,31 

190 INPUT "WAITING...";AS: REM WAIT UNTIL 'RETURN' IS PRESSED 
200 PLOT 27,11 


Dave Suits 
95 Castle Road 
Rochester, N.Y. 14623 
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attn /break 


EDITOR'S NOTE The December/January issue contained some errors in Ben 
Barlow's "Talking to Other Computers" article -- my old eyes 
aren't what they used to be. The following lines of code are 
correct (I hope!). Changes are to the BASIC data statements in 
lines 10, 12, and 20. Delete the final 32 in the Assembly data 
statement. Thanks, to those of you who corrected me. 


BASIC version: 


5 POKE 32940,195:POKE 32941 ,159 
6 CLEAR 200 
10 DATA 245,123 ,230,127,254,127,202,235,159,254,10,202,230, 
159,254,13 
12 DATA 202,230,159,254,32,218,235,159,254,97,218,230,159, 
230 ,223,50,1 
13 DATA 112,95,241,195,220,57 
20 DATA 241 ,201,245,62,31,50,227 ,129 ,62,132,211,5,62,14,50 
223 ,129,241,201 
30 DATA -1 
50 FOR X= 40900TO 40999 
60 READ A:IF A= -1THEN X= 41000:GOTO 100 
70 POKE X,A 
100 NEXT 
120 POKE 33221,195:POKE 33222,196:POKE 33223 ,159 
130 POKE 33215,195:POKE 33216,237:POKE 33217,159 
READY 


Assembly version: 
9FD7 FE20 CPI 20H; replaces CPI 20 in original 


245 123 230 127 254 127 202 235 159 254 10 202 230 159 254 13 
202 230 159 254 32 218 235 159 254 97 218 230 159 230 223 501 
112 95 241 195 220 57 241 201 245 62 31 50 227 129 62 132 211 
5 62 14 50 223 129 241 201 


Also, in the Graphics issue, On page 26 where we were 
discussing the Handshake Modification, please change 
instruction 3 to read "Tie UCl Pin 4 to UEl Pin 10" (not UCl 
Pin 10) and change instruction 4 to read "Add a 10K 1/4 W 
resistor between UD1 Pin 4 and 12V [R10O]" (12V rather than 
H2V.) This modification works well on Centronics and 
Centronics-type printers but not on BASE, Model 800 and MPI 
printers. Please accept my humble apologies for any confusion 
this may have caused. 
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HOW TO SUBSCRIBE AND ORDER BACK ISSUES 


New owners are entitled to a six month's free subscription to 
COLORCUE as soon as their warranty card has been returned. Following the 
first six month's free subscription, the subscription rate is $12 per year 
in the U.S., Canada, and Mexico and $24 throughout the rest of the world. 


Each quarter, back issues are combined into one issue covering that 
period. Quarterly issues may be ordered for $5 each. Once the quarterly 
issue is ready, individual issues will not be sold separately. During the 
current quarter, individual issues are available for $2 each. 


Below is a list of all back issues of COLORCUE. To order, fill out 
the attached order blank, enclose your check or money order (no cash, 
please), and mail your order to: 

Cathy Abramson 
COLORCUE 
100 Northcreek, Suite #250 


3715 Northside Parkway, N.W. 
Atlanta, Georgia 30327 


KKK KKK K KK KERR EERE EEEEE EERE ERE ERIE REE EERE RRR REE 


Please send me the issues I have checked below: 


am Volume 1, Nos. 1, 2, 3 October-December 1978 
-—-- Volume 2, Nos. 1, 2, 3 January-March 1979 
-—- Volume 2, Nos. 4, 5 April-May/June 1979 

-— Volume 2, No. 6, 7, 8 August-—November 1979 
Volume 3, No. 1 December/January 1980 


Volume 3, No. 2 February 1980 


Please enter my subscription for year(s) beginning a 
I have enclosed my check or money order in the amount of $.___.._ Thank you. 
NAME: 
ADDRESS: 
Criss STATE: ZIP: 


NOTE: THIS IS THE PRINTER DRIVER PROGRAM. IT WAS 
INADVERTENTLY LEFT OUT OF THE REDUCED COPY. IT SHOULD BE 
INSERTED IN PAGE 20, COLUMN 1, JUST BEFORE IBUFF: PRINT 
MESSAGE AND INPUT BUFFER WITH BACKSPACE EDITING. 
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PRINTER DRIVER FOR SIMPLE MINDED PRINTERS 
USING CLEAR~TO-SEND 


EXPANDS TABS 
NOTICES #CHARS ON LINE 
AND #LINES ON PAGE 


=e “=e =e TOG =C6 Ge VES WE 


PRINT: CALL SAVE > SAVE ALL 

CPI FF : FORM FEED? 

JZ FFEED : DO IT 

CPI TAB * SEE IF TAB 

JZ TABOUT ; SEND BLANKS FOR DUMB PRINTERS 

CPI LF > LF? END OF LINE 

JNZ COUNT ; NO PRINT IT 

CALL IBM * PRINT IT ANYWAY 

LXI H,CCOUNT; RESET CHAR COUNT 

MVI M,0O ; TO ZERO 

LXI H,LCOUNT; GET LINE COUNT 

INR M * BUMP IT 

LDA WHITE ; GET MARGIN SIZE 

MOV B,A : SAVE IT 

LDA PSIZ * GET PAGE SIZE 

SUB B : SUB MARGIN 

CMP M : THERE YET? 

RNZ : NO THATS ALL TO DO 

CALL MARGIN ; YES — SEND SOME BLANK LINES 

MVI M,0 : NOW AT TOP OF THE PAGE 
MARGIN: LDA WHITE ; AND SOME MORE BLANK LINES 
MRGO1: PUSH PSW : SAVE COUNT 

MVI A,LF ; KEEP THOSE LINE FEEDS 

CALL PRINT ; GOING OUT 

POP PSW : RECOVER COUNT 

DCR A * TILL WE HAVE ENOUGH MARGIN 

JNZ MRGO1 =; KEEP IT UP 

RET : WHEW! ALL THIS FROM ONE CHAR! 
FFEED: MVI A, LF : FORM FEED BBY LINE FEEDS 

LXI H,LCOUNT; COUNT IT 

INR M ; ONE MORE LINE 

LDA PSIZ * SEE IF END OF PAGE 

XRA M ; TRICKY ZERO <A> IF SAME 

JNZ FFEED * NO 

MOV M,A ; YES, USE TRICKY ZERO 


COUNT : CALL IBM ; SEND IT 
; ONE MORE CHAR ON THIS LINE 


20a 


TABOUT : 


=e =e 6 


LDA LSIZ ; MAX LINE SIZE 

CMP M : OUR COUNT 

RNZ ; FORCE LF 

MVI A,CR ; SEND CR 

CALL PRINT ; SEND LF, RESET COUNT 

MVI A, LF » TEST FOR END OF PAGE, ETC 
JMP PRINT ; AND RETURN 

MVI A,*' s SEND SPACES 

CALL PRINT 

LDA CCOUNT TILL CCOUNT= 


EVEN MULTIPLE OF 8 


=e 6 


ANI 7 
JMP TABOUT 
DATA AREA PRINTER DRIVER 


DB 0 ; CURRENT CHAR COUNT 
DB 0 ; CURRENT LINE COUNT 


RUN TIME PRAMS - DEFAULT VALUES 


DB 80 ; MAX CHAR ON LINE 

DB 66 ; MAX LINES ON PAGE 

DB 3 ; NUMBER OF BLANK LINES AT TOP 
; OF PAGE 


END SIMPLE MINDED PRINTER DRIVER 
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® 
Compucolor Corporation 
Intecolor Drive 
225 Technology Park/Atlanta 
Norcross, Georgia 30092 
Telephone 404/449-5996 


